home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / MacPerl 506 appl folder.sit / MacPerl 506 appl folder / Mac_Perl_506r1m_appl / lib / English.pm < prev    next >
Text File  |  1995-03-20  |  2KB  |  143 lines
  1. package English;
  2.  
  3. require Exporter;
  4. @ISA = (Exporter);
  5.  
  6. local($^W) = 0;
  7.  
  8. @EXPORT = qw(
  9.     *ARG
  10.     $MATCH
  11.     $PREMATCH
  12.     $POSTMATCH
  13.     $LAST_PAREN_MATCH
  14.     $INPUT_LINE_NUMBER
  15.     $NR
  16.     $INPUT_RECORD_SEPARATOR
  17.     $RS
  18.     $OUTPUT_AUTOFLUSH
  19.     $OUTPUT_FIELD_SEPARATOR
  20.     $OFS
  21.     $OUTPUT_RECORD_SEPARATOR
  22.     $ORS
  23.     $LIST_SEPARATOR
  24.     $SUBSCRIPT_SEPARATOR
  25.     $SUBSEP
  26.     $FORMAT_PAGE_NUMBER
  27.     $FORMAT_LINES_PER_PAGE
  28.     $FORMAT_LINES_LEFT
  29.     $FORMAT_NAME
  30.     $FORMAT_TOP_NAME
  31.     $FORMAT_LINE_BREAK_CHARACTERS
  32.     $FORMAT_FORMFEED
  33.     $CHILD_ERROR
  34.     $OS_ERROR
  35.     $ERRNO
  36.     $EVAL_ERROR
  37.     $PROCESS_ID
  38.     $PID
  39.     $REAL_USER_ID
  40.     $UID
  41.     $EFFECTIVE_USER_ID
  42.     $EUID
  43.     $REAL_GROUP_ID
  44.     $GID
  45.     $EFFECTIVE_GROUP_ID
  46.     $EGID
  47.     $PROGRAM_NAME
  48.     $PERL_VERSION
  49.     $DEBUGGING
  50.     $SYSTEM_FD_MAX
  51.     $INPLACE_EDIT
  52.     $PERLDB
  53.     $BASETIME
  54.     $WARNING
  55.     $EXECUTABLE_NAME
  56.     $ARRAY_BASE
  57.     $OFMT
  58.     $MULTILINE_MATCHING
  59. );
  60.  
  61. # The ground of all being.
  62.  
  63.     *ARG                    = *_    ;
  64.  
  65. # Matching.
  66.  
  67.     *MATCH                    = ¥$&    ;
  68.     *PREMATCH                = ¥$`    ;
  69.     *POSTMATCH                = ¥$'    ;
  70.     *LAST_PAREN_MATCH            = ¥$+    ;
  71.  
  72. # Input.
  73.  
  74.     *INPUT_LINE_NUMBER            = ¥$.    ;
  75.         *NR                    = ¥$.    ;
  76.     *INPUT_RECORD_SEPARATOR            = ¥$/    ;
  77.         *RS                    = ¥$/    ;
  78.  
  79. # Output.
  80.  
  81.     *OUTPUT_AUTOFLUSH            = ¥$|    ;
  82.     *OUTPUT_FIELD_SEPARATOR            = ¥$,    ;
  83.         *OFS                = ¥$,    ;
  84.     *OUTPUT_RECORD_SEPARATOR        = ¥$¥    ;
  85.         *ORS                = ¥$¥    ;
  86.  
  87. # Interpolation "constants".
  88.  
  89.     *LIST_SEPARATOR                = ¥$"    ;
  90.     *SUBSCRIPT_SEPARATOR            = ¥$;    ;
  91.         *SUBSEP                = ¥$;    ;
  92.  
  93. # Formats
  94.  
  95.     *FORMAT_PAGE_NUMBER            = ¥$%    ;
  96.     *FORMAT_LINES_PER_PAGE            = ¥$=    ;
  97.     *FORMAT_LINES_LEFT            = ¥$-    ;
  98.     *FORMAT_NAME                = ¥$~    ;
  99.     *FORMAT_TOP_NAME            = ¥$^    ;
  100.     *FORMAT_LINE_BREAK_CHARACTERS        = ¥$:    ;
  101.     *FORMAT_FORMFEED            = ¥$^L    ;
  102.  
  103. # Error status.
  104.  
  105.     *CHILD_ERROR                = ¥$?    ;
  106.     *OS_ERROR                = ¥$!    ;
  107.         *ERRNO                = ¥$!    ;
  108.     *EVAL_ERROR                = ¥$@    ;
  109.  
  110. # Process info.
  111.  
  112.     *PROCESS_ID                = ¥$$    ;
  113.         *PID                = ¥$$    ;
  114.     *REAL_USER_ID                = ¥$<    ;
  115.         *UID                = ¥$<    ;
  116.     *EFFECTIVE_USER_ID            = ¥$>    ;
  117.         *EUID                = ¥$>    ;
  118.     *REAL_GROUP_ID                = ¥$(    ;
  119.         *GID                = ¥$(    ;
  120.     *EFFECTIVE_GROUP_ID            = ¥$)    ;
  121.         *EGID                = ¥$)    ;
  122.     *PROGRAM_NAME                = ¥$0    ;
  123.  
  124. # Internals.
  125.  
  126.     *PERL_VERSION                = ¥$]    ;
  127.     *ACCUMULATOR                = ¥$^A    ;
  128.     *DEBUGGING                = ¥$^D    ;
  129.     *SYSTEM_FD_MAX                = ¥$^F    ;
  130.     *INPLACE_EDIT                = ¥$^I    ;
  131.     *PERLDB                    = ¥$^P    ;
  132.     *BASETIME                = ¥$^T    ;
  133.     *WARNING                = ¥$^W    ;
  134.     *EXECUTABLE_NAME            = ¥$^X    ;
  135.  
  136. # Deprecated.
  137.  
  138. #    *ARRAY_BASE                = ¥$[    ;
  139. #    *OFMT                    = ¥$#    ;
  140. #    *MULTILINE_MATCHING            = ¥$*    ;
  141.  
  142. 1;
  143.